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-- file TypePackDefs.Mesa 

-- last modified by Satterthwaite, August 18, 1977 9:24 AM 

DIRECTORY 

SymbolTableDefs: FROM "symboltabledef s" , 
SymDefs: FROM "symdefs"; 

TypePackDefs: DEFINITIONS ■ 
BEGIN 
OPEN SymDefs; 

SymbolTableBase: TYPE - SymbolTableDefs .SymbolTableBase; 

SEHandle: TYPE - RECORD[ 
stb: SymbolTableBase, 
sei: SEIndex]; 

TypeHandle: TYPE - RECORD[ 
stb: SymbolTableBase. 
sei: CSEIndex]; 

OwnMdi: MDIndex » FIRST[MDIndex]; 

-- type manipulation 

EquivalentTypes: PROCEDURE [typel, type2: TypeHandle] RETURNS [BOOLEAN]; 
AssignableTypes: PROCEDURE [typeL, typeR: TypeHandle] RETURNS [BOOLEAN]; 

END... 


